0 REM**********************************  ****                               ***
1 REM            JEOPARDY           ***  ****    DESIGNED BY   SHIBLEY      ***
2 REM                               ***  **************************************
3 REM
4 REM
10 PRINTCHR$(142)CHR$(8):GOSUB5000:GOTO100
14 Z$="":QT=TI+10000:POKE198,.
15 PRINT"[209][157]";:FORJ=1TO40:GETX$:IFX$=""THENNEXT:IFTI<QTTHEN18
16 IFQT<TITHENPRINT" [157]";:RETURN
17 J=40:NEXT:GOTO20
18 PRINT" [157]";:FORJ=1TO40:GETX$:IFX$=""THENNEXT:IFTI<QTTHEN15
19 IFQT<TITHENPRINT" [157]";:RETURN
20 IF(X$="[157]"ORX$=CHR$(20))ANDLEN(Z$)=.THEN15
21 IFX$=CHR$(13)ORTI>QTTHENPRINT" [157]";:RETURN
22 IFX$="[157]"ORX$=CHR$(20)THENZ$=LEFT$(Z$,LEN(Z$)-1):PRINT"[157]  [157][157]";:GOTO15
24 IFX$>"Z"ORX$<" "ORX$=CHR$(34)ORX$=","ORX$=":"ORX$=";"ORLEN(Z$)=ZTHEN15
25 PRINT"[152]"X$;:Z$=Z$+X$:GOTO15
30 X1=.:X2=.:X3=.:L=LEN(WW$):FORJ=1TOL:X$=MID$(WW$,J,1):IFX$<>"\"THEN35
31 IFX1=.THENX1=J:GOTO35
32 IFX2=.THENX2=J:GOTO35
33 IFX3=.THENX3=J
35 NEXT:AN$=LEFT$(WW$,X1-1):TC=VAL(MID$(WW$,X1+1,1)):P2$=RIGHT$(WW$,L-X3)
37 QU$=MID$(WW$,X1+2,X2-X1-2):P1$=MID$(WW$,X2+1,X3-X2-1):RETURN
50 RR=.:IFZ$=QU$ORZ$=P1$ORZ$=P2$THENRR=1:GOTO79
52 L=LEN(QU$):IFLEN(Z$)<4ORL<4THEN79
54 IFL=LEN(Z$)THEN68
56 IFLEN(Z$)>LTHEN64
58 X=.:FORJ=1TOL-LEN(Z$)+1:IFZ$=MID$(QU$,J,LEN(Z$))THENX=J
60 NEXT:IFX>.THENRR=1:GOTO79
62 GOTO68
64 X=.:FORJ=1TOLEN(Z$)-L+1:IFQU$=MID$(Z$,J,L)THENX=J
66 NEXT:IFX>.THENRR=1:GOTO79
68 IFTC>1ORLEFT$(Z$,1)<>LEFT$(QU$,1)THEN79
70 X=.:FORJ=LTO1STEP-1:IFMID$(QU$,J,1)=" "THENX=J:J=1
72 NEXT:Y=.:FORJ=LEN(Z$)TO1STEP-1:IFMID$(Z$,J,1)=" "THENY=J:J=1
74 NEXT:IFX=.ORY=.THEN79
76 X$=RIGHT$(Z$,LEN(Z$)-Y):IFX$=P1$ORX$=P2$ORX$=RIGHT$(QU$,L-X)THENRR=1
79 RETURN
80 U=54272:POKEU+1,20:POKEU+5,9:POKEU+6,9:POKEU+24,15:POKEU+4,17
81 FORK=1TO10:NEXT:POKEU+4,16:RETURN
84 U=54272:POKEU+1,220:POKEU+5,9:POKEU+6,9:POKEU+24,15:POKEU+4,17
85 FORK=.TO4:NEXT:POKEU+4,16:RETURN
88 U=54272:POKEU+1,6:POKEU+5,9:POKEU+6,9:POKEU+24,15:POKEU+4,3
89 FORK=.TO10:NEXT:POKEU+4,16:RETURN
92 U=54272:POKEU+1,50:POKEU+5,9:POKEU+6,9:POKEU+24,15:POKEU+4,7
93 FORK=.TO4:NEXT:POKEU+4,16:RETURN
100 POKE53280,.:POKE53265,PEEK(53265)AND139
101 POKE53281,7:PRINT"[147]                                        ";
105 FORJ=.TO22:PRINT"  ";:NEXT
110 PRINT"                                       [157][148] "
115 PRINT"                       "
116 PRINT"[145] [154]                      "
117 PRINT" [154]  CATEGORY SHOWDOWN [154]  "
120 PRINT"[145] [154]                      "
125 PRINT"                       "
130 PRINTSPC(18)"[152]FROM":PRINT"[144]SHIBLEY SOFTWARE"
133 POKE53265,PEEK(53265)OR16:GOSUB80
135 PRINT"[152]NAME OF PLAYER 1 ? ";:Z=8:GOSUB14:IFZ$=""THENZ$="PLAYER 1"
136 Z$=Z$+LEFT$(SP$,9-LEN(Z$)):P$(1)=Z$:PRINT
140 PRINT"[152]NAME OF PLAYER 2 ? ";:Z=8:GOSUB14:IFZ$=""THENZ$="PLAYER 2"
141 Z$=Z$+LEFT$(SP$,9-LEN(Z$)):P$(2)=Z$:PRINT
145 PRINT"[145][145][145][145][152]"P$(1)"SELECT RESPONSE KEY;       [157][157][157][157][157][157]";:Z=1:GOSUB14
146 PRINT:R$(1)=Z$:IFZ$=""THENR$(1)="Z"
150 PRINT"[152]"P$(2)"SELECT RESPONSE KEY;       [157][157][157][157][157][157]";:GOSUB14
151 R$(2)=Z$:PRINT:IFZ$=""THENR$(2)="/"
175 POKE53280,15:POKE53281,15:PRINT"[147]":C$(1)=".":T=62
180 Z=1:OPEN2,8,2,"0:ABC,S,R":INPUT#2,Z:CLOSE2:OPEN15,8,15:PRINT#15,"S0:ABC"
181 IFZ>T-5THENZ=INT(RND(.)*4+1)
185 CLOSE15:OPEN3,8,3,"0:ABC,S,W":PRINT#3,Z+6:CLOSE3
190 Y=.:FORJ=ZTOZ+5:Y=Y+1
200 C$(Y)=CA$(J):PRINT"LOADING CATEGORY"Y"- "C$(Y)"":GOSUB80
210 OPEN2,8,2,"0:"+C$(Y)+",S,R":INPUT#2,T(Y):IFST=.THEN215
211 CLOSE2:PRINT"**** CHECK DISK":FORL=1TO4000:NEXT:GOTO200
215 FORK=1TOT(Y):INPUT#2,CB$(Y,K):NEXTK:CLOSE2
220 FORK=1TO5
225 X=INT(RND(.)*VAL(RIGHT$(TI$,1))*T(Y)):IFX<1ORX>T(Y)THEN225
226 IFCB$(Y,X)=""THEN225
228 W$(Y,K)=CB$(Y,X):CB$(Y,X)="":NEXTK
245 NEXTJ:H=1:HH=H
249 H=1
250 GOSUB4050
251 GOSUB4000:TH=.:TG=3
252 PRINTBO$"[146][223]"P$(H)"[157]'S   CHOICE[146][169]"
255 PRINTBC$"[146]CATEGORY = ";:Z=1:GOSUB14:IFZ$="C"THEN250
257 IFZ$="Q"THENPRINT"[147]":GOTO800
260 IFZ$<"1"ORZ$>"6"ORZ$=""THEN255
261 CA=VAL(Z$):FORJ=1TO5:IFA$(CA,J)<>"   "THENJ=5:GOTO263: REM   IT IS OK!
262 NEXT:GOTO255:  REM   LOADSTAR CODE       [NOT ALLOW WRONG CATEGORY]
263 :
265 CA=VAL(Z$):PRINT"[146]"SPC(39+CA*6)Z$
285 PRINTBC$SPC(18)"QUESTION AMT. = ";
290 Z=3:GOSUB14:IFZ$<>""THEN295
291 FORJ=1TO5:IFA$(CA,J)<>"   "THENZ$=RIGHT$(STR$(J),1)+"00":J=5
292 NEXT
295 AM=VAL(Z$):IFZ$="C"THEN250
299 IFAM>500ORAM<100THEN285
300 IFAM<>VAL(A$(CA,AM/100))THEN285
310 PRINT"[146]"SPC(37+CA*6);:AA=AM/100:FORJ=1TOAA:PRINT"";:NEXT:PRINT"[145][145]";
315 PRINT"[156]     [157][157][157][157][157] "A$(CA,AA)" [157][157][157][157][157]     ";:FORJ=1TO300:NEXT
320 PRINT"[157][157][157][157][157][145][145]     [157][157][157][157][157] "A$(CA,AA)" [157][157][157][157][157]     ";:FORJ=1TO300:NEXT
330 PRINT"[146][157][157][157][157][157][145][145]     [157][157][157][157][157] "A$(CA,AA)" [157][157][157][157][157]     ":WW$=W$(CA,AA)
335 GOSUB30:A$(CA,AA)="   "
350 POKE53280,6:PRINT"[147][156]"SPC(20-(LEN(C$(CA))/2))C$(CA)""
355 PRINTSPC(15)"FOR  "AM"":PRINT"[159] [197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][197][144]"
375 X=39:IFLEN(AN$)<40THENPRINTAN$"":GOTO385
380 X=X-1:IFMID$(AN$,X,1)<>" "THEN380
381 PRINT" "LEFT$(AN$,X):PRINTRIGHT$(AN$,LEN(AN$)-X)""
385 QT=TI+(LEN(AN$)*7)+(TG*40):GOSUB92:POKE198,.
387 GETX$:IFX$=R$(1)ANDTH<>1THENHH=1:GOTO400
390 IFX$=R$(2)ANDTH<>2THENHH=2:GOTO400
392 IFTI<QTTHEN387
394 FORJ=1TO10:GOSUB92:NEXT
395 PRINT"[144]"PR$(TC)": [152]"QU$:FORJ=1TO1000:NEXT:GOTO575
400 PRINT""SPC(16)P$(HH)""
405 PRINT"[144]"PR$(TC)": ";:
420 QT=TI+300+(LEN(AN$)*9):Z=25:Z$="":POKE198,.:GOSUB15:PRINT
425 GOSUB50:IFRR=.THEN550
545 GOSUB84:PRINT"[145]"SPC(LEN(PR$(TC))+3)QU$SP$""
546 PRINTSPC(17)"[150]RIGHT":FORJ=1TO2000:NEXT:M(HH)=M(HH)+AM:H=HH
549 GOTO575
550 GOSUB88:M(HH)=M(HH)-AM
560 PRINT:PRINTSPC(17)"WRONG":FORJ=1TO500:NEXT:TG=.5:IFTH>.THEN570
565 TH=HH:PRINT""SP$""SP$"":PRINTSP$"":GOTO385
570 PRINT"[145][145][145][144]"PR$(TC)": [152]"QU$SP$
575 X=.:FORJ=1TO6:FORK=1TO5:IFA$(J,K)<>"   "THENX=1
580 NEXT:NEXT:IFX>.THENFORJ=1TO3000:NEXT:GOTO251
585 GOSUB80:POKE53280,15:POKE53281,.:PRINT"[147][154]                      "
590 PRINTSPC(9)" [159] CATEGORY SHOW-DOWN [154] "
595 PRINTSPC(9)"                      "
600 PRINT"[158] THE FINAL CATEGORY IS : ";
605 F=INT(RND(.)*VAL(RIGHT$(TI$,1))*T):IFF>T ORF=.THEN605
610 Y=.:FORJ=1TO6:IFC$(J)=CA$(F)THENY=1
620 NEXT:IFY=1THEN605
625 GOSUB80:PRINTCA$(F)"[150]":PRINTP$(1)" HAS[159]"M(1)"   [150]"P$(2)" HAS[159]"M(2)""
630 XX=.:B(1)=.:B(2)=.:IFM(1)<1ANDM(2)<1THEN770
631 IFM(1)<1THENXX=1:GOTO650
632 IFM(2)<1THENXX=1:GOTO640
635 IFM(1)>M(2)THEN650
640 PRINT"[154]"P$(1)" WHAT'S YOUR WAGER ";:Z=LEN(STR$(M(1)))-1:GOSUB14:PRINT""
645 B(1)=VAL(Z$):XX=XX+1:IFXX>1THEN660
650 PRINT"[154]"P$(2)" WHAT'S YOUR WAGER ";:Z=LEN(STR$(M(2)))-1:GOSUB14:PRINT""
655 B(2)=VAL(Z$):XX=XX+1:IFXX<2THEN640
660 IFB(1)>M(1)THENB(1)=M(1)
662 IFB(2)>M(2)THENB(2)=M(2)
665 OPEN2,8,2,"0:"+CA$(F)+",S,R":INPUT#2,T(7):IFST=.THEN670
666 CLOSE2:PRINT"[150]CHECK DISK";:GOTO665
670 X=INT(RND(.)*VAL(RIGHT$(TI$,1))*T(7)):IFX>=T(7)THEN670
675 IFX>.THENFORJ=1TOX:INPUT#2,X$:NEXT
680 INPUT#2,WW$:CLOSE2:GOSUB30
685 POKE53280,4:PRINT"[147][158]"SPC(20-(LEN(CA$(F))/2))CA$(F)"":GOSUB80
690 X=39:XX=.:IFLEN(AN$)<40THENPRINTAN$"":GOTO700
695 X=X-1:IFMID$(AN$,X,1)<>" "THEN695
696 PRINT" "LEFT$(AN$,X):PRINTRIGHT$(AN$,LEN(AN$)-X)""
700 IFM(1)<1THEN720
710 PRINT"    [155] "P$(1)" WHAT'S YOUR QUESTION":Z=25:PRINT"[154]"PR$(TC)": ";
715 GOSUB14:PRINT"":A1$=Z$
718 IFM(2)<1THEN730
720 PRINT"     [155]"P$(2)" WHAT'S YOUR QUESTION":Z=25:PRINT"[154]"PR$(TC)": ";
725 GOSUB14:PRINT"":A2$=Z$
730 PRINT"[150]"PR$(TC)":"QU$SP$
735 PRINT"";:IFM(1)<1THENPRINT"[145][145][145][145]";:GOTO750
740 Z$=A1$:GOSUB50:IFRR=1THENPRINT"RIGHT   ":GOSUB84:M(1)=M(1)+B(1):GOTO749
745 M(1)=M(1)-B(1):GOSUB88:PRINT"WRONG   "
749 FORJ=1TO600:NEXT
750 PRINT"";:IFM(2)<1THEN770
755 Z$=A2$:GOSUB50:IFRR=1THENM(2)=M(2)+B(2):GOSUB84:PRINT"RIGHT   ":GOTO770
760 PRINT"WRONG   ":GOSUB88:M(2)=M(2)-B(2)
770 PRINT""P$(1)" YOU HAVE [158]$"M(1)""
773 PRINTP$(2)" YOU HAVE [158]$"M(2)
780 POKE198,.:FORJ=1TO4000:GETX$:IFX$<>""THENJ=4000
783 NEXT:GOSUB80:POKE53280,4:POKE53281,.:Z$=P$(1):IFM(1)=M(2)THENZ$="  A TIE  "
785 IFM(1)<M(2)THENZ$=P$(2)
790 PRINT"[147][158]                  [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157] [150] ";
795 PRINT"THE WINNER  IS [158] [157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157] [150]    "Z$"   [158] ";
800 PRINT"[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]                  ":PRINTSPC(13)"ANOTHER  (Y/N)"
805 GETX$:IFX$<>""ANDX$<>"N"ANDX$<>"Y"THENGOSUB92:GOTO805
810 IFX$="Y"THENRUN
815 FORJ=1TO200:NEXT:GOSUB80:PRINT"[159]"P$(1)" [153]"M(1)
816 PRINT"[159]"P$(2)" [153]"M(2)""
817 POKE788,49:LOAD"HELLO CONNECT",8:END
3999 STOP
4000 POKE53280,14:POKE53265,PEEK(53265)AND139:POKE53281,15:PRINT"[147]";
4005 FORJ=1TO3:PRINT"[154]                                        ";:NEXT
4006 FORJ=1TO5
4010 FORK=1TO3:PRINT"[154]   [156]      [156]      [156]      [156]      [156]      [156]       ";
4015 NEXT:PRINT"[154]                                        ";
4020 NEXT:PRINT"[154] [157] 123456[156][145]";
4025 FORJ=1TO5:PRINT"";:FORK=1TO6:PRINT""A$(K,J);:NEXT:NEXT
4030 PRINT"";:FORJ=1TO6:PRINTLEFT$(C$(J),3)"";:NEXT:
4032 POKE53265,PEEK(53265)OR16:GOSUB80:RETURN
4050 POKE788,52:POKE53280,10:POKE53265,PEEK(53265)AND139:POKE53281,2:PRINT"[147]";
4055 PRINT"                                        ";
4060 FORJ=.TO22:PRINT"  ";:NEXT
4065 PRINT"                                       [157][148] ":FORJ=1TO6
4070 PRINT"[150]CATEGORY[144]"J"[150]IS  [144]"C$(J)"":NEXT:
4071 PRINT"[206][205][206][205][206][205][206][205][206][205][206][205][206][205][206][205][206][205][206][205][206][205][206][205][206][205][206][205][206][205][206][205][206][205][206][205][206][205]":PRINT"[150]"SPC(13);
4075 IFM(2)>M(1)THENPRINTP$(2)"[155]"M(2)"[150]":PRINTSPC(13)P$(1)"[155]"M(1):GOTO4080
4076 PRINTP$(1)"[155]"M(1)"[150]":PRINTSPC(13)P$(2)"[155]"M(2)
4080 PRINT"[150]"P$(H)" HAS CONTROL OF THE BOARD[158]":POKE53265,PEEK(53265)OR16
4085 GOSUB80:GOSUB4444:IFX$=""THEN5200
4086 POKE788,49:RETURN
4444 Z$="           TOUCH A KEY"
4445 PRINTBO$Z$LEFT$(LR$,LEN(Z$));:FORJ=1TO30:GETX$:IFX$=""THENNEXT:GOTO4450
4447 J=30:NEXT:RETURN
4450 PRINTLEFT$(SP$,LEN(Z$))LEFT$(LR$,LEN(Z$));
4451 FORJ=1TO25:GETX$:IFX$=""THENNEXT:GOTO4445
4452 J=25:NEXT:RETURN
5000 DIMCA$(62),A$(6,5),W$(6,5),CB$(6,20)
5001 A$(1,1)="100":A$(1,2)="200":A$(1,3)="300":A$(1,4)="400"
5005 A$(1,5)="500":FORJ=1TO5:FORK=2TO6:A$(K,J)=A$(1,J):NEXT:NEXT
5006 SP$="                                      "
5008 LR$="[157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157][157]"
5010 BO$=""
5012 BC$=""
5014 CA$(1)="SIT-COM":CA$(2)="HOME TOWN":CA$(3)="ANIMALS":CA$(42)="AUTHORS"
5016 CA$(5)="OSCARS":CA$(6)="WESTERNERS"
5018 CA$(7)="50'S":CA$(8)="COMICS":CA$(9)="MOVIES":CA$(12)="STAR ROLE"
5020 CA$(10)="CARTOONS":CA$(11)="MASH":CA$(45)="SPORTS":CA$(14)="30'S"
5022 CA$(60)="40'S":CA$(49)="60'S":CA$(48)="MUSICAL":CA$(35)="FOOTBALL"
5024 CA$(19)="BASEBALL":CA$(13)="ACTING NAME":CA$(21)="STAGE NAME"
5026 CA$(58)="ACADEMY":CA$(23)="TV HOSTS":CA$(24)="OCCUPATIONS"
5028 CA$(51)="SUPERMAN":CA$(26)="ADDRESSES":CA$(27)="70'S":CA$(37)="INVENTORS"
5030 CA$(29)="RADIO":CA$(30)="NICKNAMES":CA$(31)="TV DETECTIVES"
5032 CA$(32)="ACRONYMS":CA$(33)="BACKUP BANDS":CA$(4)="BOXING"
5034 CA$(18)="CAPITALS":CA$(36)="COUNTRIES":CA$(28)="GAMES"
5036 CA$(53)="HOCKEY":CA$(39)="LEADERS":CA$(40)="METAL/MEDAL"
5038 CA$(41)="NUMBERS":CA$(34)="NUMERICS":CA$(43)="OLD TESTAMENT"
5040 CA$(44)="BIG BUSINESS":CA$(52)="PRESIDENTS":CA$(46)="RELATIVES"
5042 CA$(47)="SPACE":CA$(17)="STAR TREK":CA$(16)="STATES"
5044 CA$(50)="SURNAME":CA$(61)="TALES":CA$(20)="THEMES"
5046 CA$(38)="TV NICKNAMES":CA$(54)="WAR":CA$(62)="WATER"
5048 CA$(57)="WORDS":CA$(56)="AUTOMOBILES":CA$(22)="US CITIES":CA$(25)="MATH"
5050 CA$(59)="MODERN MUSIC":CA$(15)="ROOTS OF ROCK":CA$(55)="COMPUTERS"
5120 PR$(1)="WHO IS ":PR$(2)="WHO ARE ":PR$(3)="WHAT IS ":PR$(4)="WHEN IS "
5122 PR$(5)="WHERE IS ":RETURN
5200 GOSUB80:PRINT"[147]PROGRAM TERMINATED[144]":POKE788,49:END
5555 OPEN15,8,15:PRINT#15,"S0:JEOPARDY":CLOSE15:SAVE"JEOPARDY",8:STOP
6666 GOSUB5000:DIMM$(63):FORJ=1TO62:OPEN2,8,2,"0:"+CA$(J)+",S,R":INPUT#2,X$
6667 CLOSE2:OPEN4,4:PRINT#4,X$" - "CA$(J):CLOSE4:NEXT